Option Explicit
Sub Q_Sample056()
    myPrintScreen
    DoEvents
    Application.ScreenUpdating = False
    With Worksheets.Add
        .Paste
        .PrintOut
        Application.DisplayAlerts = False
        .Delete
        Application.DisplayAlerts = True
    End With
    Application.ScreenUpdating = True
End Sub

Sub myPrintScreen()
    Dim KeyAr(3)  As typINPUT
    Dim ingResult As Long
    With KeyAr(0)
        .type = INPUT_KEYBOARD
        .ki.wVk = VK_LMENU
    End With
    With KeyAr(1)
        .type = INPUT_KEYBOARD
        .ki.wVk = VK_SNAPSHOT
    End With
    With KeyAr(2)
        .type = INPUT_KEYBOARD
        With .ki
            .wVk = VK_LMENU
            .dwFlags = KEYEVENTF_KEYUP
        End With
    End With
    With KeyAr(3)
        .type = INPUT_KEYBOARD
        With .ki
            .wVk = VK_SNAPSHOT
            .dwFlags = KEYEVENTF_KEYUP
        End With
    End With
    ingResult = SendInput(4, KeyAr(0), Len(KeyAr(0)))
End Sub